home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb3 / pro2 / vbmsg.bas < prev    next >
BASIC Source File  |  1993-05-28  |  2KB  |  32 lines
  1. Option Explicit
  2.  
  3. ' Declares for VBMSG API
  4. ' Copyright ⌐ 1993, JOSWare, Inc.
  5. ' All rights reserved.
  6.  
  7. ' Get specific address of various variable types
  8. Declare Function ptGetVariableAddress Lib "VBMSG.VBX" (Var As Any) As Long
  9. Declare Function ptGetTypeAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (Var As Any) As Long
  10. Declare Function ptGetStringAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (ByVal S As String) As Long
  11. Declare Function ptGetLongAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (L As Long) As Long
  12. Declare Function ptGetIntegerAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (I As Integer) As Long
  13.  
  14. ' Get various values of data at specific addresses
  15. Declare Function ptGetIntegerFromAddress Lib "VBMSG.VBX" (ByVal I As Long) As Integer
  16. Declare Function ptGetLongFromAddress Lib "VBMSG.VBX" (ByVal L As Long) As Long
  17. Declare Function ptGetStringFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, ByVal cbBytes As Integer) As String
  18. Declare Sub ptGetTypeFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, lpType As Any, ByVal cbBytes As Integer)
  19.  
  20. ' Data Type Manipulation Functions
  21. Declare Function ptMakelParam Lib "VBMSG.VBX" (ByVal wLow As Integer, ByVal wHigh As Integer) As Long
  22. Declare Function ptLoWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  23. Declare Function ptHiWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  24. Declare Function ptMakeUShort Lib "VBMSG.VBX" (ByVal ushortVal As Integer) As Long
  25.  
  26. ' Get the literal text for a message
  27. Declare Function ptMessagetoText Lib "VBMSG.VBX" (ByVal uMsgID As Integer, ByVal bFlag As Integer) As String
  28.  
  29. ' Visual Basic API Translator Functions
  30. Declare Function ptRecreateControlHwnd Lib "VBMSG.VBX" (ctl As Control) As Long
  31.  
  32.